home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / jimmy's input an (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  236b  |  13 lines
  1. 5 l$="":s$=" ":b$=chr$(157)
  2. 25 poke204,0:getk$:k=peek(203)
  3. 40 ifk$=""then25
  4. 45 poke212,0
  5. 50 ifk$=chr$(13)thenprints$b$:goto90
  6. 55 ifk$=b$thenonabs(len(l$)=0)goto25:l$=left$(l$,len(l$)-1):printk$s$;:goto80
  7. 60 iflen(l$)=255then25
  8. 70 onabs(k<8ork=51)goto25
  9. 75 l$=l$+k$
  10. 80 prints$b$k$;
  11. 85 goto25
  12. 90 return
  13.